home *** CD-ROM | disk | FTP | other *** search
/ GameStar 1998 November (Bonus) / GAMESTAR11B.ISO / ENCYC99 / MM / T620266A.DCR / Scripts_14_Class LabelGod.ls < prev    next >
Encoding:
Text File  |  1998-06-29  |  1.2 KB  |  55 lines
  1. property layerList, labelSprite, labelsOn, labelLayer, dontHide
  2.  
  3. on catchEvent me, xLayer
  4.   if xLayer = #mouseUp then
  5.     set dontHide to 0
  6.   else
  7.     if labelsOn then
  8.       if the myName of xLayer <> the myName of labelLayer then
  9.         set dontHide to 0
  10.         hideLabels(me)
  11.       end if
  12.     end if
  13.     repeat with i in layerList
  14.       if i = xLayer then
  15.         set labelLayer to i
  16.         next repeat
  17.       end if
  18.       crankDown(i)
  19.     end repeat
  20.     crankUp(labelLayer)
  21.     set theLayerName to toString(labelLayer)
  22.     set the member of sprite labelSprite to getOne(layerList, labelLayer)
  23.     if not labelsOn then
  24.       set labelsOn to 1
  25.       set the visible of sprite labelSprite to 1
  26.       set dontHide to 1
  27.     end if
  28.   end if
  29. end
  30.  
  31. on hideLabels me
  32.   if not dontHide then
  33.     if labelsOn then
  34.       set the visible of sprite labelSprite to 0
  35.       repeat with i in layerList
  36.         beNormal(i)
  37.       end repeat
  38.     end if
  39.     set labelsOn to 0
  40.   end if
  41. end
  42.  
  43. on new me, xSprite
  44.   set labelSprite to xSprite
  45.   set layerList to [:]
  46.   set labelsOn to 0
  47.   puppetSprite(labelSprite, 1)
  48.   set the visible of sprite labelSprite to 0
  49.   return me
  50. end
  51.  
  52. on addThing me, xThing
  53.   addProp(layerList, the number of member (toString(xThing) && "Labels"), xThing)
  54. end
  55.